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Additionally in accordance with a preferred embodi- 

AUTOMATED MERCHANDISING SYSTEM FOR ment of the invention, the point of sale terminal may be 
COMPUTER SOFTWARE remotely accessed by a customer via a modem. 

Further in accordance with an embodiment of the 
This is a continuation of application Ser. No. 5 invention, apparatus is provided to generate an identifi- 
07/184 923 filed Apr. 22, 1988, which was abandoned cation code which is associated with the purchased 
upon Aeffling hereof. software. The identification code comprises one or 

upon uic uui g mQre of &e f 0 Uowing identification parameters: pur- 

FIELD OF THE INVENTION cnas er identification, point of sale identification, pro- 

The present invention relates to merchandising sys- 10 gram identification, serial number for program copy, 
terns generally and more particularly to merchandising date of purchase. 

systems for computer software. Additionally in accordance with an embodiment of 

the invention apparatus is also provided tor generating 
BACKGROUND OF THE INVENTION a ^ report m copy form including at least one of 

In recent years, personal computer software has be- » the following identification parameters: purchaser iden- 
come a major consumer industry and sales of pre-pack- tification. point of sale identification, program identifi- 
aged software have grown enormously. Generally sales cation, serial number for program copy, date of pur- 
of personal computer software have been carried out in chase. 

two ways. About half of the sales are by mail order, • Further in accordance with an embodiment of the 
which does not afford the consumer the possibility of 20 invention apparatus is also provided for generating and 
experiencing use of the software prior to purchase, and displaying a menu for enabling a potential customer to 
denies the consumer instant gratification because he search and locate software in which he has a potential 
must wait for delivery of the software by mail or cou- interest 

rier Additionally in accordance with an embodiment of 

The remainder of personal computer software sales 25 the invention, there is also provided demonstration 
are retail. Retail sales of personal computer software are computer apparatus for providing to a potential cus- 
considered to be costly due to high stocking require- tomer the opportunity for operating the software prior 
ments and the requirement of relatively skilled salespeo- to a decision to purchase. 

pie, thus increasing the cost of sales and the ultimate ^ ggjgp DESCRIPTION OF THE INVENTION 

^t^t^ftoe, software carriers have become The present invention will be understood and appre- 
more standardized, so as to enable most types of soft- dated more fully from the foUowing detailed descnp- 
ware to be embodied one of a relatively small number of don, taken in conjunction with die drawmgs m which: 
Conventional diskette formats. 3 5 I is a functional block ofawftw are 

» merchandising system constructed and operative in 
SUMMARY OF THE INVENTION accordance with a preferred embodiment of the present 

The present invention seeks to provide an automated invention; and ..... „ . . . ct _ 

merchandising system for computer software. FIG. 2 is a functional bock diagram ofaangte sta- 

There is thus provided in accordance with a pre- w tion software merchandising system contracted ami 
ferred embodiment of the present invention an auto- operative in accordance with a preferred embodiment 
mated mechandising system for computer software of the present invention. 

including a central memory for storing software for sale DETAILED DESCRIPTION OF A PREFERRED 
to customers, interface apparatus for receiving a soft- EMBODIMENT 
ware select customer choice input having associated 45 „_ % ... ;„,„._._, 

therewith payment identification apparatus, and appara- Reference is now made to FIG. 1, which illustrates a 
m foTwritoTsXaw^lected by a customer onto a preferred embodiment of software merchandising sys- 
*£Z3?S topping same to the customer. tern constructed and operative m accordance wi& a 
raccor^cTwith a preferred embodi- preferred embodiment of the P^nt The 
ment of the invention, apparatus is also provided for 50 system comprises a central memory 10, such as a CD 
printing n^ua^comKSg the software selected ROM. commercial] ly > ivaUable f^ M of Japan 
bythe customer and dispensing same to the customer. for example model CDR 15028. The <^ ™ 

FurttoTk T accordancTwitl! Tan embodiment of the serves to store programs which ^vadabU for sale to 
invSon, apparatusisprovidedforpreventingcopying customers and preferably also stores 
oTsXare dispensed to the customer. 55 which appropnate accompanymg man^s tnay be 

Tn a^rdancVwiAone embodiment of the invention, printed. The central memory 10 interfaces wrth a CPU 
the "e^ memS * located at a point of sale terminal. 12, such as on TBM AT, which, ™* 
Ac"S to an alternative embodiment of the inven- aplurahty of customer 

tioT&Tcentral memory is located at a location remote 14, which typicaUy comprise IBM Personal Computers 
torn the point of sale terminal and may be connected 60 1«, having associated therewith credit card readers 18, 
S ole Sc PoL of sale terminals by means of a such as those ~«a%avadab lei rom Magtek,Inc. 

In accordance with a preferred embodiment of the ment of the present invention, CPU 12 interfaces with 
mention? Ae^ttal menVory also contains information and controls the operation of diskette writing apparatus 
u^to Prijt manSs. * Diskette writing apparatus 24 typically comprises a 
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standard diskette drive, such as that commercially avail- 10. (Optional anti copying protection on written pro- 
able from Fujitsu of Japan. gram) 

Feeding and removal of diskettes may be accom- 11. Print manual corresponding to purchased program, 

plished manually. According t a preferred embodi- 12. Dispense manual and program to customer. (For 

ment of the invention, automatic diskette feeding and 5 embodiment of FIG. 1). _ 

removal apparatus 26 is provided. This may comprise a According to the embodiment of FIG. 1, a communi- 

commercially available robot 27, programmed to re- cations protocol for permitting remote accessing of the 

move a diskette from a selected stack of diskettes 28, point of sale unit by a customer may be provided. Such 

place it in a selected diskette drive 30, corresponding to protocols are entirely conventional and are used in 

the size of the diskette chosen, and subsequently with- 10 telephone shopping and banking systems, 

draw the diskette from the diskette drive and dispense it In accordance with an embodiment of the invention, 

to the consumer. Robot 27 may be similar to the robot a communications protocol may be provided for updat- 

employed in automated video film merchandising sys- ing the programs stored in the central memory via a 

terns, such as a robot manufactured by IVDM of Kib- remote source, via a modem. 

butz Ein Harod, Israel, or robot apparatus employed in 15 It will be appreciated by persons skilled m the art that 

automatic vending machines such as the Storematic line the present invention is not limited to what has been 

available from AVAG Betriebsverpflegungs AG of particularly shown and described hereinabove. Rather 

Zurich Switzerland. tne of ±c P"** 1 * invention is defined only by the 

Reference is now made to FIG. 2, which illustrates a claims which follow: 

self-contained merchandising system of the type illus- ANNEX A 
trated in FIG. 1. Here a computer 40, such as an IBM 

AT includes a central memory containing computer Explanation of Software and Listing 
programs to be sold to customers and preferably also Explanation of the software package: 
contains information from which manuals accompany- ^ The software attached was written in "C". It com- 
ing the computer programs may be printed. prises 5 modules as follows: 

Preferably associated with computer 40, are a printer 1. Soft.c— The main manager of the software. 

42, a credit card reader 44 and a modem 46. Communi- Displays entry menu which gets the customer's iden- 

cation via modem 46 provides remote access by custom- tification and checks the credit number validity 

ers, central credit check communication and communi- 3Q (allowed format for a credit card number— in our 

cation with a remote memory or program supply or example: 9 digits) and compares the number against 

update source. a "bad-list". 

In accordance with a preferred embodiment of the 2. Tree.c— Manages the menu selection, 

invention, computer 40 is programmed with a program, Categorizes menu selection enabling the customer to 

whose listing is attached hereto as Annex A and which 35 seek the desired software item, 

has the following chief functions: 3. Key.c— Manages the keyword search. 

1. Display Customer Interface Questions Software item search by keyword. 
CUSTOMER NAME AND ADDRESS 4. Pack.c— Manages demonstration and sale procedure. 
MEANS OF PAYMENT Creates a customer diskette consisting of the program 

2. Perform a credit check using the credit card reader 40 with customer I.D. In our example creates a batch 
44 either via a central credit check bureau or via a list file which has the name of the selected software 
stored in the central memory. package and echoes the customer's I.D. and goes 

3. Display Customer Choice Menu: on to run the program called go.exe. Then the 
Key Word search based on a search of key words in program copies the purchased software to go.exe. 

names or descriptions of the various programs 45 In addition, the program copies the transaction de- 

which are available. tails to a file called register 0.001 for bookkeeping 

Type of Program Search and reporting as well as generating hard copy 

Word Processors thereof. 

Spreadsheets 5. Myio.c— Handles input from user's terminal. 

4. Display further menus listing available programs as 50 Packx uses the following Microsoft DOS utilities: 
per customer choice indication in (3). FORMAT— to create the diskette on which the pro- 

5. Provide program access on computer 14 for customer gram is copied. 

evaluation. PRINT— is used to print the manual accompanying 

6. Accept customer choice of program to purchase. each program. 

7. Accept customer choise of format of carrier. (For 55 To demonstrate the ability of the software we have 
embodiment of FIG. 1) (In embodiment of FIG. 2, no included 2 types of demo software— "Spreadsheets" 
format choice is provided). and "Wordprocessors" called spl, sp2 and wpl, wp2. 

8. Write purchased program on carrier. spl, sp2 and wpl are each a single file program. 

9. Incorporate customer identification, point of sale wp2 is a multiple file package. 

identification, program identification, date of pur- 60 The customer may then operated the purchased pro- 
chase and program serial number on program and gram by typing in the name of the program, 
record same for sales records, print out sales record For conciseness the programs and the manuals are 
report. not included in the listing that follows: 

65 
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wo2 is a multiple file package. . 

The customer.may then operated the purchased program by typing 

in Fo f SisenSs S°e^grams and the manuals are not included 
in the listing that follows: 



/HHHfi soft . C 

#include "so.h" 

int pm_fd; 
unsigned date; 
long l_offset; 
struct CUSTOMER cu ; 

main{) . 
{ prnJTd - open ("pm H , 1) 5 

entryjnenuO ; 

tree( &root ) ; - 

} 



put_entry() 
{ clr_scr; 

mov cur (5, 29); 

puts(" # ** SoftMat Entry ***"); 
mov cur(6,29); 

mov_cur(8,29) ; 
puts ("Name 
mov_cur(9,29); 
puts ( "Street 
mov_cur(10 f 29); 
puts ("Town 
mov_cur(ll,29); 
puts ("Zip code 
mov_cur(12 t 29) ; 
puts ("Credit No.:"); 

} 



:"); 
:">; 
:"); 



-entry_menu(") 
{ int f , c t tdat; 
put_entry() ; 
f - 8; 
while (1) 
{ switch(f) 
{ case 8 : 
case 9 • 
case 10 : 
case 11 : 
case 12 : 



c 
c 
c 
c 
c 



geta(cu.name, 25, f\ *0>; break; 
geta(cu.street, 25. f. break; 
geta(cu.town, 25, f. break; 
geta(cu.zip, 25, f. break; 
geta(cu.credit, 25, f, *0); break; 
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switch (c). 
{ case DOWN : 

case CR : if {f < 12) 

♦+f ; 

else if ( credit_ok() ) 

return; 
else 

bell ; 
break; 

case HOME : f ■ 8; break; 
case UP : if (f > 8) 
-f; 
else 

bell; 
break; 



} 

credit_ok() 

{ char bad[120], *b ; 
int bad_fd ; 

if ( strlen( cu. credit ) !« 9 ) 

return( 0 ) ; 
b * cu. credit ; 
while ( *b ) 

if ( ! iadigit( *b++ ) ) 

return( 0 ) ; » « « . 

if ( ( bad fd - open ( "bad_list.001\ 0 ) ) " -1 ) 
{ printf ("no badJList file\nStrike any key to continued ) . 

getchar{ ) ; 

return( 1 ) ; 

return( 0 ) ; 

} 

return ( 1 ) ; 

} 

/**♦•**** tree.c ****♦*♦•*/ 
#include "so.h"* 

char *splnames[] * {"spl.exe", 0 } ; 

struct LEAF spl - {"spl\ tepred, splnames, "spl.man", 0. 9-95. 

"Spread sheet" } ; 

char *sp2names[] = {"sp2.exe", 0 } ; 

struct LEAF s P 2 = {"s P 2". fcspred. s P 2names, "■^•f^JiJj-? 9 : 

"Spread sheet with macros and graphics J , 

char *wplnames[] - {"wpl.exe", 0 } ; 

struct LEAF wpl - {"wpl\ &word, wplnames, "wpl.man", 0. 49.90, 
"Word proccesor for documents } 5 
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char ♦w P 2names[] - {"wp2.exe". "wp2.ovl\ "wp2.ov2", 0 } 5 

struct LEAF wp2 « {"wp2" f &word, wp2names, "wp2.aan" ; 0, 99-99. 

struct u»r wp \ !W ^ rd , proccesor (editor) for \"C\" programs" } ; ■ . 

struct JUNCTION spred ■ {"Spread Sheets" &root LAST. < G > > 

struct JUNCTION word - {"Word Proccesors", &root, LAST { **pl. &*P2> ° * » 
struct JUNCTION root - {"ROOT". 0, MID. { &word. tepred. 0 , } . 

tree( June ) 

struct JUNCTION *junc ; 
{ int i. 1, down ■ 1, get_choice ; 
char r[3] ; 
struct JUNCTION **p ; 
struct LEAF **lp ; 

, while ( down 1 ) 

{ dr_scr; ~. 1*. : 
mov_cur(0,20); 
puts( junc->nam ) ; 
mov_cur(l t 20); 
JL * strlen( junc->nam ) ; 

for ( i-0 ; i<l ;_ ++ i )_ „ 

putchar{ f - T ); 

mov_cur(3.20); 

if ( junc «• fcroot ) 

puts( " 1. Exit" ) ; 
else 

puts( " 1. Previous menu" } ; 
mov_cur<4,20); 

puts( " 2. Key word search" ) ; 

for ( i»5. P - junc.p.jjsons ; *p ; ++ P. + + i ) 

{ mov_cur(i,20) ; 

priHtf("*2d. " f i - 2 ) ; 

puts( (*p)->nam ) ; 

if ( junc->type «■ LAST ) 

{ mov_cur(i,50) ; 
lp ■ P ; 

printf("$«-2f " f (*lp)->price ) ; 

} 

setmem( r, 3. > ; 

mov_cur(i,25) ; 

puts( "Enter your choice - ) ; 

get_choice ■ 1 ; 

while ( get_choice ) 

{ getn( r, 2 f i, 45 ) ; 

1 ■ atoi( r); <* \ \ \ \ 

if ( get_choice - ( ( 1< 1 ) II ( 1 > ( 1 - 3 ) ) ) ) 
bell ; 

if ( 1 — 1 ) 

return ( 1 ) ; 
else if ( 1 — 2 ) 

down ■ key_word( junc ) ; 
else if ( junc->type ■■■MID ) 

down ■ tree ( junc. p. jJsons[l-3] ) 5 
else /• type « LAST •/ 

down ■ leaf_handler( junc.p.l_sonsLl-3J ) . 
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if ( junc iroot ) 

down ■ 1 ; /* stop at root */ 

return( 0 ) ; 



leaf_handler( leaf ) 

struct LEAF *leaf ; _ 

{ int i. l f get_choice ; 

char r[3] ; 

while { 1 ) 

{ clrjscr; 

mov cur (0 f 20);* "" m '""~ 

printf("*s price -is - $X.2f leaf->nam, leaf->prxce ) ; 

mov_cur(l,20); 

1 * strlen( leaf->nam ) ; 

for ( i«0 ; i<l ; *+i ) 

putchar( , » , )» 
mov_cur(3,20); 

puts( 11 1. Previous menu" ) ; 
mov_cur(4,20); 

puts( 11 2. Enter program" ) ; 
mov_cur(5»20) ; 

puts( n 3* Purchase the software" ) ; 
mov cur(6-,20) ; 
puts( " 4. Exit" ) ; 
mov_cur(9.0); 

puts( "Description: \n" ) ; 
puts( leaf->descrip ) ; 
setmem( r, 3. 'NO 1 ) ; 
mov_cur(7,25); 

puts( "Enter your choice - " ) • 
get_choice * 1 ; 
while ( get choice ) 
{ getn( r, 2, 7. **5 ) ; 
1 - atoi( r ) ; 

if ( get choice «((1<1)|I(X>4))) 
bell ; 

} 

switch ( 1 ) 

{ case 1 : return( 1 ) ; 
case 2 : demo ( leaf ) ; 

break ; 
case 3 2 Pack( leaf ) ; 

return ( 0 ) ; 
case : return( 0 ) ; 

} 

} 

} 



/•——" key.c ♦*•♦*****/ 
#include "so.h" 

static struct LEAF *keys[MAX_KEYS] ; /* holds leaves who match key word */ 

static int key_ind t key_len ; 

static char key[80] ; /* holds key word */ 
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key word( junc ) 

Itruct JUNCTION *junc ; 
{ int 1, 1. down - 1, get_choice ; 

^ ££e»( 3 k;y # s%Leof< keys ). 0 ) ; P reset keys array V 

key_ind - 0 ; 
clr_scr ; 

pS^&ei key word ( blanks are checked for!! ) :« ) ; 
setmem( key, sizeof( key ), '\0' ) ; 
geta( key, 79. 5, 0 ) ; 
key_len - strlen( key ) ; 
ps « key ; 

while ( *ps++ * tolower( w ps ) ; . 
findjcey( junc ) ; 
while ( down « 1 ) 
{ clr_scr; 

mov_cur(0,10); 

puts( "KEY-WORD : " ) ; 

puts( key ) ; 

mov cur (1,20); 

1 «~strlen( key ) ; 

for ( i»0 ; i<l ; ++ i ) 
putchar( v "'); 

mov cur(3»20); 

puts( ,f 1. Previous menu" ) ; 

for ( i-Q ; i < Jceyjind ; ++± ) - ■ 

{ mov cur(i+4,20); 

prtatf{"*2d. *. i ♦ 2 ) ; 

puts( keys[i]->nam ) 5 

I » ; ~ 

.•...setmem( r, 3. -\0 ~) S " 

mov_cur(i,25); M 

puts( "Enter your choice ) t 

get_choice ■ 1 ; 

while ( getchoice ) 

{ getn( r, 2, i. *5 ) ; 

ir'c'S'iLi. < (K-D in i> «*-»>>>' 

bell ; 

} 

if ( 1 — 1 ) 

return(- 1 ) ; 
else /* chose a program */ 

down - leaf handler( keys[l-2] ) ; 

> 

return ( 0 ) ; 

} 

find_key( junc ) 

struct JUNCTION *junc ; 
{ struct JUNCTION **p = junc. p. j_sons ; 

if ( junc->type as MID ) 

{ Whi l? < find key ( V* ) ) £ keys full V 

returnll) ; £ signal full V 

return(G) ; /* not ful1 1 
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\ Is /* type " LAST - all sons are leaves */ 

} return* check_leaves( June ) ); /* checkleaves reports keys full 

> 

check_leaves( junc ) 

struct JUNCTION *junc ; 
{ struct LEAF * # p ; 

for( p ■ junc.p.l_sons ; *p ; *+P ) 

If ( search_key( *p ) ) /* found entry •/ 

{ if ( key_ind < MAX_KEYS ) /* keys not full / 
keys[ key_ind++ ] - *P 5 

pi CP 

return(l) ; /* signal full V 

retln(O) ; /* signal not full V 

} 

searchjcey( leaf ) 

struct LEAF *leaf ; - - 

{ /* temporary version */ 

char buf [1000], # pb - buf , # ps - leaf->nam. *index{) ; 

while ( *pb++ ■ tolower( *ps++ ) ) ; 

*( pb - 1 ) ■ ' ' •• _ L- - 

/• » p b «" 1 \0 I 1 puts( buf 1 s"*7 

ps * leaf->descrip ; 

while ( *pb++ - tolower( »ps++ ) ) ; 
/• puts( buf ) ; •/ 

P S * bVlf 5 * ^ oo 

while ( ( ps - index( ps, *key ) ) ** 

( strncmp( ps, key, key_len ) ) ) 

ps ; 
return(ps) ; 

} 

pack . c 
#include "so.h" 

static station = 5 ; /* station i.d. */ 

pack( leaf ) 

struct LEAF *leaf ; 
{ int fd t i, 1, get_choice ; 

char r[33. s[120], # *name ; 

clr_scr ; 

mov"cur(3.20) ; 

puts( "Purchase procedure" } ; 
mov_cur(5.0) ; 

exec( "format -com", "b:" ) ; 
sprintf( s, "b:*s.bat", leaf->nam ) ; 
fd = fopen( s, "w" ) ; 
fprintf ( fd, "echo off\n" ) ; 

fprintf( fd, "echo custumer name: *s\n", cu.name ) ; 
fprintf ( fd, "echo custumer addr: *s\n", cu-street ) ; 
fprintf! fd, "echo %* *s\n". cu.town cu.zip ) ; 

fprintf ( fd, "echo SoftMat product: #s\n", leaf .nam ) ; 
fprintf ( fd, "echo Serial No. 2d/%x/#d\n" , 
station, leaf, leaf- > sale JLndex ) ; 
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fprintf( fd, "pause\n" ) ; 
fprintf( fd, "go" ) ; 
f close ( f d ) ; 
putchar( , \n f ) ; 

copy{ # (leaf->prog). "b:go.com" ) ; 
name ■ leaf->prog ; 
while ( *++name ) 

{ sprintf(s, "b:*s", *name )j _ 

copy( # name,-s ).;:?~ ' 

/* make a registration of the transaction */ 
fd » fopen( "c:register.001". "a" ) 

dates { s ) ; J~TT — \ """" 

fprintf( fd, "transaction date - %s\n , s ) ; : „. 

-fprintf { f d , " cus turner name : ~ Jte\ri" V cu . name ) ; 

fprintf ( fd, "custumer credit no.: #s\n", cu. credit ) ; 

fprintf( fd f "custumer addr: *s\n\ cu, street ) ; 

fprintf( fd, - %s %s\n\ cu.town cu.zip ) ; 

fprintf( fd, "SoftMat product: *s\n", leaf .nam ) 5 

fprintf! fd, "Serial No. *d/*x/*d\n\n" , station, leaf, leaf->sale_xndex ) 

fclose( f d ) ; # . 

/* make a hard copy on the serial printer as well / 

fd » bpen( "coml:", 1 ) ; 

fprintf ( fd, "transaction date - %s\n , s ) ; 

fprintf ( fd, "custumer name: Xs\n", cu.name ) ; 

fprintf ( fd, "custumer credit no.: *s\n", cu. credit ) ; 

fprintf ( fd, "custumer addr: #s\n'\ cu. street ) ; 

fprintf! fd, " %s %s\n\ cu.town cu.zxp ) ; 

fprintf ( fd, "SoftMat product: #s\n", leaf.n^m ) ; 

fprintf! fd, "Serial No. WW W\n\n" , station, leaf. leaf->sale_index ) 
close ( fd ) ; 

^ct^^^leafOmahual ) ; /* P-lnt manual on parallel printer 
clr_scr ; 

Suti( U «Re;ovi ksket from drive B. Strike any key when ready" ) ; 
gets(s) ; /* clear input buffer */ 

} . 

copy( src, dst ) 

char *src, *dst ; 
{ int i, fd, fdl ; 

char r[33. s[UlOO] ; 

fd " open( src, 0 ) ; 

fdl = creat( dst ) ; 

while ( ( i - read( fd, s, 4096 ) ) > 0 ) 

write{ fdl, s, i ) ; 
close ( f d ) ; 
close ( fdl ) ; 

} 

demo( leaf ) 

struct LEAP *leaf ; 
{ char r[3], s[120] ; 

sprintf( s. "c:*s.exe", leaf->nam ) ; 



1038238.1 01 



-10- 



if ( exec( s. M " ) -1 ) 
{ mov_cur(24,0) ; 

puts( "demo not implemented - strike any ket to continue ) ; 

bell ; . _ 

scr_ci()~ ; " 

} 



/♦*»#***♦♦* m yio.C •******♦/ 
#include "so.h ,r 

geta(s,l.y,x) 

char *s; 

int 1, y,x; 
{ int c, i; 

char *tt, *t f »e; 

mov_cur{y,x) ; 

if ( { i - strlen(s) ) < 1 ) 

_setmem ( • ♦ i . 1 - i • '\0 f ); 

else 

s[l] * 'NO 1 ; 

t = s; 

e ■ s + 1; 

cur_off(); 

puts(s) ; 

mov_cur(y,x); 

cur_on() ; 

while(l) 

{ c - scr_ci(); 

if ( ( c >• 1 1 ) & ( c 128 ) ) 
{ *t++ ■ c; 
if ( t « e ) 
{ ~t; 

scrjnark(c) ; 
}else 

scr_co(c); 

}else 

switch (c) 

{ case BS : 

case .LEFT . — 

if (t > s) 
{ putcha^( t \01G , ); 
*t~ ; 

} 

else 

bell; 
break; 
case RIGHT : 

if ( t < (e-1) ) 
{ if ( !*t ) 

*t = ' 1 ; 

scr_co{*t++) ; 
}else 

bell; 
break; 
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case DEL : 
if ( # t ) 
{ cur_off(); 

for ( tt-t ; *tt ; + + tt ) 
{ »tt • *(tt+l); 
if ( # tt) 

scr_co(*tt); 

else 

scr_co(' 

mov_cur(y, x + (t - s)); 

cur_on(); 
}else 

bell; 
break; 
case Fl : 

mov_cur(y,x); 
t = s; 
cur_off(); 

for ( i-0 ; i<l ; ++i > 
{ scr_co(* '); 
*t++ * 'XO'; 

oov_cur{y,x) ; 
curjon{); 
t ■ s; 
break; 
default :■ 

if ( c » check(c) ) 

return(c); 
else 

{ bell; 
break; 



--4 

} 

1 



} 



putln(s) 

char *s; 
{ char *t; 
int i; 

i = O; 

t = s * 

while(*t) *+t; 
while (—t >- s) 
{ scr_co(*t); 
++i; 

if ( i — 2 ) 
scr_co ( ' . ' ) i 

} • . 

if ( i — 1 ) 
{ 8cr_co('0'); 
scr co(' .'); 



} 



getn(s,l,y.x) 
char *s; 
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int l.y.x; 
int c, i; 

char *t, # e, *b, buf[80]; 
t ■ s; 
b - buf ; 

while ( *b - *t) 
{ *+t; 
++b; 

for ( i - b - buf ; i <= 1 : ♦ + i ) 
{ buf[i] = '\0'5 
s[i] " 'NO'; 

} 

e ■ s + 1 ; 

mov_cur(y,x) ; 

cur_off(); 

puts(s) ; 

while(l) 

{ mov_cur(y,x) ; 

cur_on() ; 

c * scr_ci() ; 

cur_off(); " " 1 1 . 

if ( isdigit(c) |1 (c --LEFT ) || ( c 
{ if ( ( c « LEFT ) 1 1 { c — BS ) ) 
if ( *b ) 

•t »-*b; 

else 

"{ bell; 

continue; 

} 

else 

{ if ( t e ) 

{ for ( i=0 ; i<l 5 
{ s[i] - s[i+l]; 
buf[i] * buf[i+l]; 

} 

— t; 
— b; 

} 

*t = c; 
*b = c; 

} 

puts(s) ; 
if ( t < e ) 
{ ++t; 
++b; 

} 

}else 

switch (c) 
{ case RIGHT : 
case DEL : 
if ( t > s ) 
{ ■*— t « '\0'; 
— b; 

puts(s) ; 

scr_co( ' * ) ; 
}else 

bell; 
break; 
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case PI : 
mov_cur(y t x) ; 

for (*i-G ; i<l ; ++i ) 
{ scr_co( ' ' ) ; 
»t++ - '\0*; 

} 

mov_cur(y,x) ; 
t =~s; 
b * buf ; 
break; 
default : 

if( c - check(c,s) ")"'." .1 
{ cur_on(); 

return(c) ; 
}else 

{ bell; 

break; . 

"} " " 

} 

} 

} 

check (c) 
int c; 
{ int f ; 
switch (c) 
{ case END : 
case HOME : 
case CR : 
case UP : 
case DOWN : 
case PGUP : 
case INS : 
return (c) ; 
case f \003' : 
clr_scr ; 
cur_on() ; 
exit(); 

} 

return (0) ; 

} 

print (s, n) 

char *s; 

int n; 
{ char *t; 

int i; 

i « strlen(s); 
t ■ s + i; 
n -= i; 

while (n~ > 0) 

fputc ( f \ prn^fd ); 
while ( t > s ) 

fputc ( *{-- t), prn_fd ); 
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